Chapter 9 



The Dual of Substitution is 
Redecoration 

Tarmo Uustalu^ and Varmo Vene^ 

Abstract: It is well known that type constructors of incomplete trees (trees with 
variables) carry the structure of a monad with substitution as the extension op- 
eration. Less known are the facts that the same is true of type constructors of 
incomplete cotrees (=non-wellfounded trees) and that the corresponding monads 
exhibit a special structure. We wish to draw attention to the dual facts which are as 
meaningful for functional programming: type constructors of decorated cotrees 
carry the structure of a comonad with redecoration as the coextension operation, 
and so do — even more interestingly — type constructors of decorated trees. 

9.1 EVTRODUCTION 

The developments in both language design and programming methodology for 
functional programming have repeatedly demonstrated the usefulness of category- 
theory insights in the construction and organization of programming idioms. A 
good example is given in the categorical notions of monad and comonad: these 
are in several programming contexts useful as means for uncovering or impos- 
ing structure. Monads were originally introduced into programming by Moggi 
[Mog91] as a modularization tool in language semantics and then quickly popu- 
larized by Wadler [Wad92] also in progrannming as a means to set up an infras- 
tructure for representing and manipulating computations with effects. Comonads, 
although not as popular as monads, have been employed, e.g., to describe inten- 
sional semantics [BG92]. Kieburtz [Kie99] argues that comonads are good as a 
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framework for encapsulating effects of computations in context. Comonads and 
monads equipped with distributive laws can be used to specify complex recursion 
and corecursion schemes for inductive and coinductive types [UVPOl, BarOl]. 

In this paper, we describe monad and comonad structures on certain type con- 
structors of inductive and coinductive data. It is well known that type construc- 
tors of incomplete trees (trees with "variables", or "mutable leaves", for which 
trees can be substituted) carry the structure of a monad with substitution as the 
extension operator; this fact is the starting point of the categorical approach to 
universal algebra. The equally plausible, but not so apparent fact that the same 
holds of type constructors of incomplete cotrees (=non-wellfounded trees) has 
been pointed out only recendy [AAVOl, MosOl] (cf. also [G+01]). We show that 
these two facts dualize for type constructors of what we call decorated trees and 
decorated cotrees: these determine comonads with redecoration as the coexten- 
sion operator. The pragmatic implication is that a good deal of programming and 
reasoning about programs involving (co)trees, substitution, and redecoration can 
be done generically, once and for all. This is potentially very useful as these things 
are ubiquitous in programming: the simplest examples of substitution operations 
are addition for natural numbers, append for hsts, substitution for variables in a 
term; functions marking the nodes of a tree with some information pertaining to 
the subtrees they root are redecoration functions. In a related paper, [UusOl], we 
generahze the monad and comonad constructions on (co)tree type constructors 
for a wider class of (co)inductive type constructors. 

The organization of the paper is the following. In Sections 9.2, 9.3, we define 
the concepts of monad and comonad and hst some simplest popular examples. In 
Section 9.4, we give the monad constructions on type constructors of incomplete 
trees and cotrees. These are dualized in Section 9.5 into comonad constructions 
on type constructors of decorated cotrees and trees. In Section 9.6, we conclude 
and mention some directions for future work. 

Though the paper is motivated by issues in functional programming, the ma- 
terial is basically category-theoretic. We have striven for elementary exposi- 
tion. The reader is assumed to know the basics of the categorical approach to 
functional programming (the types-as-objects, functions-as-morphisms identifi- 
cation), in particular, the central concepts of coproduct, product, and exponential 
objects (sum, product, and function-space types), initial algebras and final coalge- 
bras (inductive and coinductive types). The more specific concepts of monad and 
comonad are briefly introduced. For a good introduction to initial algebras and fi- 
nal coalgebras from the progranraiing perspective and to the categorical approach 
to functional programming in general, we refer to [Fok92, BdM97]. The recur- 
sion and corecursion schemes used in the paper are described in [UV99, UVPOl]. 
The classic category-theory texts treating (co)monads are [Man76, BW84]. 

Throughout the paper, we work in one base category C about which we do not 
make any specific assumptions other than the existence of the particular coprod- 
ucts, initial algebras etc. that we name. The category Set of sets and set-theoretic 
functions is always a possible choice for C- The notation used is standard. [In 
particular, |C| is the collection of the objects of C and End((r) denotes the cate- 
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gory of endofunctors on C; {f,g) is the notation for the pairing of / and g, [ /, g ] 
is the case analysis of / and g; ev^ g is application: evA,B : (A => fi) x A ^ fi.] 



9.2 MONADS 

A monad is a structure on an object mapping. The structure of a monad is de- 
scribable in several equivalent ways. For our purposes, it is most natural to work 
with the so-called extension form (Kleish triples). 

Definition 9.1. A monad (in extension form) on C is a triple (M,r| , — *) consisting 
of an endomapping M on \C\ (underlying object mapping), a \C\-indexed family 
T] ofmorphisms TjA : A — > MA funitj, and an operation — * taking every morphism 
f -.A^ MB in C to a morphism f* : MA MB (extension operation^ such that 



[The unit and the extension operation are called "retum" and "bind" in Haskell.] 
Below are some simple examples of monad constructions popular in functional 

programming, where monads are best known as tools for encapsulating effects of 
computations: the exception, storage reading and state transformation monads. 

Example 9.2. Given an object E in C, the endomapping M on | defined by MA = 
A-\-E carries a monad structure defined by TjA = inU,£ and f* = [/,inrB£] for 
f:A^ MB. 

Example 9.3. Given an object S 'mC, the endomapping M on | C| defined by MA = 
5 => A carries a monad structure defined by tj^ = curry(fstA,5), /* = curry(evs^B o 
{ / o ev54 , sndMA,s ) ) for / : A ^- MB. 

Example 9.4. Given an object S in C, the endomapping M on | C| defined by MA = 
5 (A X 5) carries a monad structure defined by tj^ = curry(idAxs) and f* = 
curry(evs,Bxs ° (/ x ids) ° ev^^xs) for / : A ^- MB. 

9.3 COMONADS 

Comonads are the formal dual of monads. Below is a definition for the coexten- 

sion form (coKleisli triples). 

Definition 9.5. A comonad (in coextension form) on C is a triple {N,e, — ^) con- 
sisting of an endomapping N on\C\, a\ C\-indexedfamily ofmorphisms : NA — >• 
A ( counit), and an operation — ' taking every morphism f : NA —^Btoa morphism 
f^ : NA NB (coextension operation) such that 



/*°TlA = / (forf-.A^MB) 

TjA* = \dMA 

{g*off^g*or 



(9.1) 
(9.2) 
(9.3) 



£Bof=f (forf-.NA^B) 



(9.4) 



(9.5) 



ig°f)^=g^°f 



(9.6) 
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Comonads, too, can be used for encapsulation of effects. Differently from 
monads, however, comonads handle incoming (externally produced) rather than 
outgoing (intemally produced) effects. The simplest examples are the storage 
reading and "state in context" comonads. Storage reading comonads are the same 
as storage reading monads, modulo currying/uncurrying. 

Example 9.6. Given an object S on C, the endomapping A' on \ C\ defined by NA = 
A X 5 carries a comonad structure defined by Za = fstA,5, P = {f,sndA,s) for 
f:NA^B. 

Example 9. 7. Given an object S on C, the endomapping on | C| defined by NA = 
(5 A) X 5 carries a comonad structure defined by {N,e, — ^) by setting Ea = 
evs4, /'•' = curry(/) x ids for f -.NA^B. 

9.4 MONADS OF TREES AND COTREES 
9.4.1 Monads of trees 

The starting point for the categorical approach to universal algebra is the monad 
construction on type constructors of what we call incomplete trees (trees with 
variables). 

Given an endofunctor H on C. Define a mapping -+H from C to End(C) | 

by {A+H)X =A+HX, {A+H)^ = \dA+H^- Define an endomapping M on \ C\ 
and two | C| -indexed families r], x of morphisms TjA : A -)• MA, Xa : HMA MA 
from the initial (A +//)-algebras (/i(A +//), inyi+/f) by 

MA = jj{A +H) A riA = \nA+H ° inU,ffMA A Xa = Iha+h o inrA,ffMA (9.7) 

If C is a category of types and functions, then the object MA given by an object A 
is the type collecting the A-incomplete H-trees, i.e., //-branching trees involving 
variables drawn from the type A. The morphisms TjA, Xa are the two construc- 
tion functions of this type: they produce an A-incomplete //-tree from either a 
variable from A or an //-structure of A-incomplete //-trees. To give an example, 
if HX = l-\-XxX, then MA is the type of binary A-incomplete trees. Category 
theorists speak of (MA,riA,XA) as the^ee H-algebm over A (notice that (MA,Xa) 
is an //-algebra!), usefully generalizing the corresponding concept from universal 
algebra. Universal algebra treats situations where C is Set and the functor H is 
polynomial. Then H encodes a signature and the A-incomplete //-trees are noth- 
ing else than (the syntax-tree presentations of) the terms over A in this signature. 
In the case of HX = 1 + X x X, we might say that MA is the set of terms over A in 
a signature with one nuUary operator (constant) and one binary operator. To get, 
e.g., arithmetical expressions over A built of numerals and two operators addition 
and multiplication, we should use HX = Nat + 2 x X x X. 

Now, a significant fact is that we can also canonically produce a morphism 
f* : MA — > MB from any given morphism / : A MB. This morphism is defined 
as an iteration (=catamorphism, =fold) 

f = {\[f,XB]\)A+H (9.8) 
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so that f* is the unique morphism h : MA MB satisfying 



(9.9) 



or, equivalently, 



A+HMA 

id A+Hh 

Y 

A+HMB 



ho'y\A = f A hoXA = 'igoHh 



-^MA 

h 

Y 

^MB 



HMA 




From the functional programming point-of-view, /* is a function that takes an 
A-incomplete //-tree and replaces its variables (these are drawn from A) with B- 
incomplete //-trees, relying on / as a guideline, and leaves the rest the same (no- 
tice that /* is a //-algebra homomorphism from {MA,1a) to {MB,1b)\). In short, 
/* is the substitution function corresponding to / seen as a substitution rule. The 
triple (M,ri , -*) turns out to be a monad, with the monad laws following solely 
from the fact that /* is a unique solution of Eq. 9.9 (the fact that {MA. [r|A,TA ]) 
is initial among the (A +//) -algebras is not needed!). Summing up, we have the 
following propositions. 

Proposition 9.8. Given an endofunctor H on C. Given also an endomapping M 
on \C\, two \C\-indexed families r\, x of morphisms r\A : A ^ MA, Xa : HMA 
MA, and an operation — * taking every morphism f : A^ MB into a morphism 
f* : MA — >• MB that uniquely solves 9.9 wrt. h. Then {M,r[,—*) is a monad. 

Proposition 9.9. Given an endofunctor H on C. Then M, r|, i, —* defined by 
Eq.s9.7, 9.8 satisfy the assumptions of Prop. 9.8andhence {M,r[,—*) isamonad. 



9.4.2 Monads of cotrees 

Knowing that type constructors of incomplete trees carry a monad structure with 
substitution as the extension operation, it is meaningful to ask whether the same 
holds of type constructors of incomplete cotrees (=non-wellfounded incomplete 
trees). Intuition suggests that such type constructors ought to support a substitu- 
tion operation and then a monad ought to be at hand. This is indeed so. 

Given an endofunctor //, use the final (A+//)-coalgebras (v(A+//),outA+/f) 
to define an endomapping M on \C\ and two |d -indexed famiUes r], x of mor- 
phisms r|A : A — > MA, Xa : HMA MA by 

MA = v(A+//) A riA = out^|^oinlA,/fMA A Ta = out^lfjo\nrA,HMA 

(9.10) 
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employing the fact that ouIa+h is iso (Lambek's lemma) and, hence, v{A+H) 
carries a canonical (A +//)-algebra structure out^j^^. In the programming inter- 
pretation, the object MA induced by an object A is the type of all if-branching 
A-incomplete cotrees (=non-wellfounded trees) and the morphisms TjA and Ta are 
its two constructor functions, Tj^ producing an A-incomplete cotree from an in- 
habitant of A and Xa making one from an //-structure of A-incomplete cotrees. In 
case HX = l+X xX, MA collects the binary cotrees with variables from A. 

It remains to define a morphism /* : MA — > MB for any given morphism / : 
A MB. This can be done using primitive corecursion (= apomorphism): 

f = [( (*) ° mB,^Br' °/) + id//MA) ° [t1a,Xa]-' h+H (9-11) 

where (*) = [\(iB+HmrMA,MB,mrBH{MA+MB)°Hm\MA,MB], so that /* is the unique 
morphism h : MA — > MB satisfying 

[^B,lBr^ oh= {\dB+H[h,\dMB])°i*)°i{[^B,1B^^ °f) + ^dHMA)°[^A,1A^^ 

B + HiMA+MB) (B + //MB)+//Mii'ien:!^"A+//MA''4^MA 

\dB+H[h,\dMB] h 

B + HMB < -^-^ MB 

A simphfication of the last equation using properties of coproduct and the fact that 

[iIajTa] is iso gives Eq. 9.9. Thus, — * is a substitution operation again, but now 
for incomplete cotrees, not trees as previously. Prop. 9.8 applies and establishes 
that {M,r[, — *) is a monad. 

Proposition 9.10. Given an endofunctor H on C. Then M, r], %, — * defined by 
Eq.s 9.10, 9.11 meet the assumptions of Prop. 9.8 and hence {M,r[,—*) is a 
monad. 

There is more to type constructors of incomplete cotrees: they are not just 
monads, but "iterative " monads, in the following sense. For any morphism g : 
A M{A +B) such that 

8=[r[A+B°inrA,B,^A+B]°'P (9.12) 

for some morphism (p : A B + HM{A + B), we can canonicaUy point out a 
morphism g'' : A ^ MB. This morphism is smoothly definable as an application 
of an instance of the generic monad-controlled corecursion scheme of [UVPOl] 
so that is the unique morphism / : A ^ MB satisfying the equation 

[TlB,XB]"^°/=(idB+///")o(p 

B+HM{A+B) ^ A 

\dB+Hfi f 

B + HMB ^ MB 
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where f'^ = : M(A +B) MB. This equation simpUfies to the equation 

f = f^og (9.13) 



which is an "iteration" equation for substitutions rules (the word "iteration" refers 
here to tail-recursion, not to a scheme of structured recursion for inductive types). 
In programming terms, is the substitution rule assigning B-incomplete H- 
cotrees to variables from A which is obtained by repeating g where g is seen 
as a substitution rule assigning (A +Z?) -incomplete iZ-cotrees to variables from A. 
Such repetition is well-defined provided that g is productive in the sense of not 
replacing a variable from A with another variable from A: it may only replace it 
with a variable from B or an //-structure of (A -incomplete //-cotrees. 

Proposition 9.11. Given an endofunctor H on C. Then the monad of Prop. 9.10 
carries an "iteration" operation — " taking every morphism g : A ^ M{A+B) 
satisfying Eq. 9.12 into a morphism : A ^ MB that uniquely solves Eq. 9.13 
wrt. f. 



9.4.3 General monads and substitution 

As matter of fact, every monad M on Set has something to do with substitution 
in the usual sense of term substitution: MA may be understood as the free (i.e., 
term-equivalence-class) algebra over A for some (possibly infinitary) signature 
and collection of equations [Man76, Sec. 1.5]. This and further related theory, 
however, remains outside of the scope of this paper. A practical conclusion is 
that a monad may always be thought of as a type constructor endowed with a 
substitution-like operation. The monad laws state basic properties of substitu- 
tion. One might say they are abstractions of the facts x[r/x] = r, t[x/x] = t, and 
(f[r/x] )[.?/>'] = f [''[.?/>'] /x] provided y ^ FV(f). Many useful properties of substi- 
tution follow from these laws alone. It is easy to prove, for example, an abstract 
version of the well-known lemma stating that = t[r[s/y]/x,s/y] = 

{t[s/y])[r[s/y]/x], provided x ^ FW{s). For / : A ^- M{B + C) aadg:B^ MC, 

M{A + {B + C)) — ^M{B + C) >MC 

M{{A+B)+C) ^^-^ ^MC 

I f II 

^ ' (MmrAC°g)^ (g*°f)* II 

M{B+{A + C)y 'tXM{A + C)^^ ^MC 

where — " is defined as above. Such laws are potentially useful in program trans- 
formation. 



9.5 COMONADS OF (CO)TREES 

In the preceding section, we have seen two monad constructions with clear rele- 
vance for functional programming. Not surprisingly, they have duals which de- 
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liver comonads, but a noteworthy fact is that the dual constructions also exhibit a 
functional programming reading. 



9.5.1 Comonads of cotrees 



Given an endofunctor H on C, we now begin by defining a mapping — xH from 
I C\ to |End((:) I by (A X H)X = AxHX,{Ax H)l, = \dA x Hi,. For the dual of 
the first monad construction, we define an endomapping on \C\ and two \C\- 
indexed families e, 9 of morphisms : NA -^A,Qa- NA HNA from the final 
(A X //)-coalgebras (v(A x H),o\i\.axh) by 

NA = V{AxH) A = fstA,ffiVAO0UtAxH A Sa = SndA,i?ArAO0UtAxH 

(9.14) 

In functional programming terms, the object NA induced by an object A is usefully 
thought of as the type of all A-decorated H-cotrees, i.e., //-cotrees with every 
node (the root of every subcotree) paired with a decoration from the type A. The 
morphisms Ea, 0a are the two associating destruction functions; they analyze an 
A-decorated //-cotree into a decoration from A and an //-structure of A-decorated 
//-cotrees. In the special case HX = X, NA is the type of streams with element 
type A and Ea, 9a are the head and tail functions. If HX = 1 +X x X, NA is the 
type of A-decorated binary cotrees. 

We also define, for any morphism / : NA B,a morphism : NA -> NB as 
a coiteration (= anamorphism, =unfold) by 



/^ = [((/,eA))W 

with the effect that is the unique morphism h : NA NB satisfying 

{eB,QB)oh={\dBXHh)o{f,QA) 



(9.15) 



(9.16) 



NA 



-^Bx HNA 



idgxHh 



NB - B X HNB 



or, equivalently. 



£B°h = f A QB°h = HhodA 

NA 




HNB 



Then, in the functional programming interpretation, is a function that takes 
an A-decorated //-cotree and replaces the decoration of the root of its every sub- 
cotree (these are all A-decorated //-cotrees) with a decoration from B using / as 
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a guideline; everything else remains untouched (/^ is an //-coalgebra homomor- 
phism from (NA.Qa) to {NB,Qb))- In short, the morphism is the redecomtion 
function corresponding to / as a redecoration rule. (Gibbons [Gib93] calls the 
upwards pass given by /.) In the case of streams, / : NA could be the func- 
tion that extracts the 1st and 2nd elements of a stream, : NA — > NA^ is then the 
function that takes a stream and retums the stream of its adjacent element pairs. 
The triple (A^, e, — ^) is a comonad; moreover, the comonad laws follow just from 
the fact that is a unique solution of Eq. 9.16. Thus we have: 

Proposition 9.12. Given an endofunctor H on C- Given also an endomapping N 
on \ C\, two \ C\-indexed families e, 9 ofmorphisms Ea : NA^A, 6^ : NA HNA, 
and an operation taking every morphism f : NA B into a morphism f^ : 
NA NB that uniquely solves Eq. 9.16 wrt. h. Then {N,e, — ^) is a comonad. 

Proposition 9.13. Given an endofunctor H on C. Then N, e, 6, — ^ defined by 
Eq.s 9.14, 9.15 satisfy the assumptions of Prop. 9.12 and hence {N,e,—^) is a 
comonad. 



9.5.2 Comonads of trees 

For the dual of the second monad construction, we use the initial (A x //) -algebras 
(/i (A X ) , i n A X H ) and define an endomapping on | (T | and two | C | -indexed fam- 
ilies e, 6 of morphisms : NA -^A,Qa' NA HNA by 

NA = p{AxH) A = fstA,//iVA o in^xH A Oa = sndA,//A?A o inA^// (9-17) 

Then, the object NA corresponding to an object A models the type of A-decorated 
H -trees and Ga, 6a are the two accompanying functions for destructing an A- 
decorated //-tree into a decoration in A and an //-structure of A-decorated //-trees. 
MHX = \+X xX, NA is the type of A-decorated binary trees. 

For any given morphism / : NA B, define a morphism : NA NB as a 
primitive recursion (=paramorphism) by 

f = (I (£3,65 o ((/o (eA,eA )-') X \dHNB) o {*) |)axH (9.18) 

where (*) = {\dA x HsndNB^A,HktNB^AOsndA^H{NBxNA)), meaning that f^ is 
the unique morphism h : NA NB such that 

/jo(eA,eA)"^ = (86,65)^1 o((/o(eA,eA)"^) X idffArB)o(*)o(idA x//(/j,idiVA)) 

NA ^ "-^ A X HNA 

h idAX//(/!,idiv/i) 

NB 4^ B X HNB < — - (A x HNA) x HNB AxH{NBx NA) 

This equation simplifies into Eq. 9.16. Thus, —Ms a redecoration or upwards 
pass operation again, although this time for decorated trees, not cotrees. In the 
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case of binary trees, we could have, e.g., / : NA Nat be the function returning 
the height of a given A-decorated tree. Then is the function that takes an A- 
decorated tree and returns a tree where the A-decoration of each node has been 
replaced by the height of the subtree rooted by this node. Applying Prop. 9.12, 
we have that (A'^, e, — ^) is a comonad. 



Proposition 9.14. Given an endofunctor H on C. Then N, e, 0, -''^ defined by 
Eq.s 9.17, 9.18 meet the assumptions of Prop. 9.12 and hence {N,e,—'^) is a 
comonad. 



While monads of incomplete cotrees are "iterative", comonads of decorated 
trees are "recursive". For any morphism g : N{B xA) ^ B satisfying 



(9.19) 



for some morphism (p : A x HN{B x A) B, we can define a morphism g"^*"^ : 
NA B as an application of an instance of the generic comonad-controUed recur- 
sion scheme of [UVPOl] so that g'^ is the unique morphism / : NA B satisfying 
the equation 

/o(eA,eA>-i=(p°(idAx///) 



ATA 
/ 
B 



AxHNA 
■ A X HN{B X A) 



where / = ( /, ) ^ : NA N{B xA). This equation simpUfies to the equation 

f = gof' (9.20) 

a "recursion" equation for decoration rules (the word "recursion" referring to the 
dual of tail-recursion). In programming terms, g'^^'^ is the redecoration rule assign- 
ing decorations from B to A-decorated //-trees that results from repeating g where 
g is seen as a redecoration rule assigning decorations from B to (B x A)-decorated 
//-trees. Such repetition is well-defined provided that / never uses the decora- 
tion from B of a given (B x A)-decorated //-tree, only looking at the decoration 
from A and the //-structure of subordinate (B x A) -decorated //-trees. In the case 
of binary trees, we could think, e.g., of a function g : A'(Nat x A) — > Nat which 
takes a binary tree and retums 0, if the root is a leaf, and 1 plus the maximum 
of the Nat-decorations of its two constituent subtrees, if it is a branching node, 
^rec . ^ Nat then calculates the height of a given binary tree. More generally, 
it can be remarked that redecoration functions corresponding to "recursively" de- 
fined redecoration rules are a generalization of Bird and Gibbons' upwards accu- 
mulations [Gib93, BdMH96], i.e., upwards passes induced by catamorphisms: if 
there is a morphism 9' : A x HB B such that 9 = 9' o (idA x //(fstg^ o Ebxa)), 
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theng"^^ = (I (p' \)axh- The upwards accumulation lemma saying that (|(p' Daxs^ = 
(I (ebjQb)"' ° (^p'° (idA X HeB);Sr\dA,HNB) \)axh follows from the more general 

truth that = (| {eBxA,QBxA ° ( {<PMA,HN(BxA),SndAflN{BxA ) \)axh- 

Proposition 9.15. Given an endofunctor H on C- Then the comonad of Prop. 9.14 
carries an "recursion" operation —'^'^ taking every morphism g : N(B xA)^B 
satisfying Eq. 9.19 into a morphism g^^'' : NA B that uniquely solves Eq. 9.20 
wrt. f. 



9.5.3 General comonads and redecoration 

Just as every monad at an abstract enough level is about incomplete trees and sub- 
stitution, every comonad is about decorated trees and redecoration. The comonad 
laws state basic properties of redecoration-like operations and a number of further 
properties are simple corollaries. Among them is, e.g., the following lemma on 
composing redecoration functions. For / : NA B and g : N{B xA) ^C, 

NA ^N{BxA) — ^N{Cx {BxA)) 

II i ! 

II (x°f\f)^ ' ' 

NA ^^^^ >Ar((CxB)xA) 

NA ^ N{CxA)- -^NiBx{CxA)) 

where — is defined as above. 



9.6 CONCLUSION AND FUTURE WORK 

We have shown that type constructors of incomplete (co)trees carry the structure 
of a monad and type constructors of decorated (co)trees carry the structure of a 
comonad. The constructions presented make generic use of different generic re- 
cursion and corecursion schemes. We expect them to be useful as building blocks 
in appUcations such as representation and manipulation of syntax, processing of 
hierarchical data along the hues of "explosive" programming as studied in [01i98] 
or computing with attribute grammars. 
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